home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / util1 / scrnbo.bas < prev    next >
BASIC Source File  |  1988-05-19  |  768b  |  10 lines
  1. 10 REM 80 X 25 DISPLAY  GRID  BY JACK VANDER-SCHRIER  CIS#=74025,475
  2. 20 CLS:KEY OFF:REM CLEAR SCREEN TURNOFF KEY LIST
  3. 30 WIDTH "LPT1:",80:REM SET WIDTH OF LINE PRINTER TO 80 CHARACTERS
  4. 40 LPRINT CHR$(27);CHR$(56);:REM SET PRINTER TO 8 LINES PER INCH CHECK YOUR PRINTER MANUAL FOR YOUR CODES
  5. 50 LPRINT "  _25 24_23_22_21_20_19_18_17_16_15_14_13_12_11_10__9__8__7__6__5__4__3__2__1":REM THESE ARE LINE NUMBERS
  6. 60 FOR X=1 TO 80:REM LOOPS FOR NUMBER OF PRINT OR SCREEN COLUMNS
  7. 70 LPRINT RIGHT$(STR$(X+100),2);"|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|__|";RIGHT$(STR$(X+100),2);:REM PRINTS BOXES AND NUMBERS COLUMNS
  8. 80 NEXT
  9. 90 LPRINT "   25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10  9  8  7  6  5  4  3  2  1"
  10.